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ie COPYRIGHT ofan’ 1978, 0280 1982, 1984 B 

ie DIGITAL PORATION, MAYNARD. MASSACHUSETTS. 

ie ALL RIGH $ Tenent Con 

'@ THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
i@ ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
'@ INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS sort ARE OR OTHER 
ie COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
is OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 


t® THE a he IN THIS SOFTWARE IS SUBJECT TO CHANGE W 
'® AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGI 
!# CORPORATION. 


ie DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
:* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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: FACILITY: DECnet-VAX Network Management Listener 

ABSTRACT: 

This module contains routines to process the NCP CLEAR command. 
! ENVIRONMENT: VAX/VMS Operating System 

AUTHOR: Distributed Systems Software Engineering 

CREATION DATE: 30-DEC-1979 

MODIFIED BY: 

: v03-005 MKP0007 Kathy Perko 26-Mar-1984 
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Fix CLEAR LOgsies bug introduced ! change to permanent database 
spores on which caused the record keys to be invisible to all 
e the 1/0 routines. 
v0O3-004 MK athy Perko 9-Aug-1984 
Add X25 Access Module entity. 
5 v03-003 MKP000S Kathy Perko 4-Aug-1983 


aw WAL CLEAR parameter module IBese =| :02: VAX-11 Bliss-32 V4.0-74 P 
vat. ~$00- 138% 99:96:80 DISKSVMSMASTER: alm SRCSNMLCLEAR.B320%°" as vos 
5 1! Alter routines that mani Lope pornenent Catabocg records so : 
; : ; they are transparent to the ISAM keys at the beginning. : 
; 1 i v03-002 mKP0004 Kathy Perko 28-sune ¢-1982 ; 
: i Add qualifiers to sentity handling. ° Add X23. and X29 : 
3 : Server modules, X25-Trace module, ond X25-Protocol 3 
: ; module. : 
: 66 i v03-001 mKP0003 y Perko 2-May-1982 ; 
: ; chgnge - § to use double search keys and add : 
: ; 
; i i v02-002 MK pogee Kathy Perko 31-Dec-1981 Fs 
; ; : : Pix eb AR EXEC so that a wildcard search key is ; 
Bay, 1 : 
; | «676 1! v02-001 MKP0001 Kathy Perko 21-July-1981 3 
3 Le ; Add circuit mater. hohe changes for muitidrop. : 
es oa : 
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TABLE OF CONTENTS: 


voL=600 


5 FORWARD 
NMLSCLEARENTITY 
NMLSCLEAREXECUTOR 
NMLSCLEARK 
NAL CLEARENTITY, 
NAL SCLEARKNOL 
NMLSCLEARLOGGING 
i NML_CLEARLOGGING 
NAL CLEARLOGALL 
NMLSCLEARK 
; 005 ' 
4 0096 «1 | INCLUDE FILES: 


AG 


EQUATED SYMBOLS: 
! OWN STORAGE: 


: Parameter buffer and 


NAL ST -£ roveee* 


NAL 
NACST-N NFBBUFFER 
T-PRMBUF FER 


NMLSQ_EVTBFDSC 


c 
NML$Q7PRMBF DSC 


Be Se Se Se Se Se Se Se Se Se Se Se Ve Se Se Ge Se Se Se Se Ge Ge Ge Ge Ge Ge Ge Ge Se Se Ge Ge Ge Se Se Se Ge Ge Se Se Se Se Se Ge Se Se Se Se Se Se Se Se Se Ge Se Ge oe 


ye ee ee ee Le eee SY 
— - 


ee ee ee ee ee ee ee ieee 


SS er 


NMLST_ENTBUFFER : 
NAL $OQ"ENTBF DSC 


5s 
<< 
>> 
-_~ 
Ba 
.* 


5 
= 
>>> 
--—-— 
c 
7. 


descriptor for handling volatile data. 
NMLSK_RECBFLEN, errs E) 
aaa p BUFLEN, vTed, 

2 erred: 


Sitti NMLST_EVTB 


ance WAL ST. P28 
we Béu FFER) 
WALST™ ~PRABUF FER) : D 


mocc 


Entity buffer and descriptor. 


BBLOCK CNMLSK_ENTBUFLEN), 
: DESCRIPTOR 


ot) 
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INITIAL (0, NALST_ENTBUFFER); 
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™m ° R 
| GLOBAL ROUTINE WAL SCLEARENTITY CENtiTY. ENTITY PenMent ify Aon, 
QUAL_PST, QUAL“LEN, GUAL_ADR) : NOVALUE = 


os 


oe 


FUNCTIONAL DESCRIPTION: 


This routine clears porcursere for the specified entity sype. 
Its purpose is to allow the same code to be used for both 
singular and plural entity operations. 


' 
' 
' 
: 
é ; INPUTS: 
7 5 i ENTITY Entity type code. 
4 7 : gut ATV LEN Byte coun f entity id string. 
7 : NTITY_ADR Address o ent id string. 
7 ' QUAL _PST Qualifier PST entry address 
; QUAL _LEN Qualifier Length 
QUAL __ADR Qualifier address 
: OUTPUTS 
¢ : Specified parameters or entities cleared from database. 
BEGIN 
LOCAL 
MSGSIZE; 
! 
i x25 Server Trace, and X29 Server databases have only one entry. So 


always do a wildcard clear of these databases. 


ir “ENTITY got NMLSC -133- SERV OR 

“ENTITY L NMLSC"X29-SERV OR 
-ENTITY ar WAL SC. ~Thate THEN 
ENTITY_LEN = -1; 


NAL _CLEARENTITY (ENTITY ore LEN, Php i ADR, 


= . QUAL PS L_CEN AD 
wn 048 REPLY (WL SAB MSGBLOCK. “ASG s{zé): Mt “Build message 
e 
ND: OR ry RT 


aa a a ht at a wk a at a ba ss ab a 9 9 a 2 


ARAVLSSSLESLENLESELES 


SSEND (NMLSAB_SNDBOFFER, “ABGSize) error 
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TITLE SCLEAR NML CLEAR parameter module 
- IDENT Woes 560 


-PSECT SPLITS,NOWRT ,NOEXE 2 


: LONG 7924 ; 
-ADDRESS NMLST_EVTBUFFER : 

P.AAB: .LONG 104 ; 
-ADDRESS NMLS$T_P2BUFFER : 

P.AAC: .LONG ; 

1 -ADDRESS NMLST_NFBBUFFER ; 


——— ap ened 


wy SELEAR 
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80000000" OoO1e >’ “ADDRESS NAL ST_PRMBUFFER 


~PSECT SOWNS,NOEXE,2 
00000 NMLS$T ee 
00400 NALST tt ie 
00468 NMLST_NFBBUFFER: 
OO4CC NMLST _PRABUEEER: 
o0scc es 
00000600 0060C Le 
00000000" 00610 -ADDRESS NMLST_ENTBUFFER 3 
NML$Q_EVTBFDSC= P.AAA 
NML$Q_P2BFDSC= 


- AAB 
NML$Q_NF BBFDSC= P.AAC 
NALSQ~ tay Ay 
«EX VTSRCTYP 


1024 
104 
100 
256 


“EVTCLAS 
NMLSGB-EVTMSKTYP 

SEXTRN NMLS$GW~EVTSNKAD 

SEXTRN NMLS$GW~ACP 

-EXTRN NMLSGL-LOGMASK, NML$GQ_ENTSTRDSC 

“EXTRN NMLSAB_OIOBUFFER 

-EXTRN NML$GQ-QI0BFDSC 

-EXTRN NMLSAB~EXEBUFFER 

-EXTRN NMLSGL-EXEDATPTR 

SEXTRN MMLS$GO-EXEDATDSC 

“EXTRN NMLS$GQ~EXEBFDSC 

SEXTRN NMLSAB_RCVBUFFER 

-EXTRN NML$GOQ-RCVBFDSC 

-EXTRN NMLSAB~SNDBUFFER 

*EXTRN NAL $60 SNDBE DSC 

“EXTRN NMLSGL-RCVDATLEN 

-EXTRN NMLSAB-CPTABLE, NMLSAB_MSGBLOCK 

-EXTRN NMLSAB-ENTITY fp 

TEXTRN NMLSAB_QUALIFTER_ID 

SEXTRN NMLSAB-ENTITYDATA 

*EXTRN NAL $AB “NAL NMV, NMLSAB_PRMSEM 

-EXTRN NMLSAB_RECBUF, NMLSAL Te ENT INF TAB 

SEXTRN NMLSAL"PERMINE TAB 

“EXTRN NMLSAWPRM_DES, NMLSGB_CMD_VER 

SEXTRN NMLSGB-ENTITY_CODE 

-EXTRN NMLSGB-ENTITY-FORMAT 

SEXTRN NMLSGL-QUALIFTER_PST 

SEXTRN NMLSGB~QUALIFIER-FORMAT 

“EXTRN NAL $6B-F UNCT 10N 

-EXTRN NMLSGB-INFO, NMLSGB_OPTIONS 

“EXTRN NMLSGL-PRMCODE, NEC SoL _PRS_FLGS 
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-EXTRN NML$G ENTITY 
-EXTRN NAL eo “Meroe RAMDSC 

-EXTRN NMLSGQ_RECBF oat 
eEXTRN 


Bs 
-EXTRN NAL SADDEVENTS. NMLSAD bad 


SEXTRN NMLSGETINFTABS, lit SET ENTITY_IDS 

eEXTRN wae 36s TT SO ato 

“EXTSN NMLSREMSRC, NALS SAVEVENTS 
Wat SSEN ND 


-PSECT SCODES,NOWRT,2 


0000 000 ENTRY NMLSCLEARENTITY, Save nothing 3; 0163 
SE 04 C2 0000 SUBL2 #4, SP ; 
11 04 AC D1 0000 CMPL  s ENTITY, #17 : 0196 
0C 13 00009 BEQL ~=séaATS$ : 
15 04 AC 01 00008 CMPL = ENTITY, #21 : 0197 
06 13 0000F BEQL ~=séoa1 : 
13 04 AC 01 00011 CMPL ENTITY, #19 + 0198 
04 12 00015 BNEQ $ ; 
08 ac 1 ce 0017 1$ MNEGL #1, ENTITY_LEN : 0199 
7E 14 AC 70 0001B 2$ MOVa QUAL LEN, =(SP) F 0202 
7E g¢ AC 7D OO01F MOV ENTITY_ADR =(SP) ; 0201 
7E 4 AC 70 000 : mova _— ENTITY; 3 
00000000v 00 06 FB 000 CALLS #6, NML _CLEARENTITY ; 
5 pp 00 PUSHL SP > 0203 
000000006 6 F 000 PUSHAB NIL SAB MSGBLOCK ; 
000000006 00 FB 999 CALLS NMCSBLD_REPLY : 
6 DD 00030 PUSHL aces ioe + 0204 
000000006 00 9F 0003F PUSHAB NL SAB SNDBUFFER ; 
000000006 00 02 FB 90045 CALLS NMCSSE : 
04 0004C¢ > 0205 


3; Routine Size: 77 bytes, Routine Base: S$CODE$ + 0000 


: 208 0206 1 
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ZSBTTL "NMLSCLEAREXECUTOR Clear volatile executor gergnaqers" 
GLOBAL ROUTINE NMLSCLEAREXECUTOR (ENTITY on 4 49 ~ DUMS, 
6um4, 6um5) : NOVALUE = 


X-11 Bliss-32 V4.0-74 Page 8 
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-- 


1+ 
FUNCTIONAL DESCRIPTION: 


This routine clears executor parameters. 
INPUTS: 


i 
i 
i 
i 
i 
i 
! ENTITY Entity type code. 
: DUM = DUMS Not used. 

i 

i 

i 

i 


OUTPUTS: 
Executor parameters cleared from the database. 


1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 
BEGIN 
LOCAL 

EXEADR 
MSGSIZE; 

EXEADR = 0; ! Executor address is zero 


COOOCCOCOCOOCOCOCOCOCOOOOCOOOOOOOOOOO 


MOMUPOPOPOPOROON 


FREE BWW WWIII RONNONONININNIN) 4 4 3 3 OOO 


MEUM OODDNAWNEWN @ O OONAUS WN SH OCONOULS WOOO 


If the entire executor node entry is to be deleted then attempt 
to delete the executor parameters. f this is successful then 
delete the executor remote node parameters. 
IF .NMLSGL_PRS_FLGS CNMLSV_PRS_ALL) 
BEGIN 
IF wR _CLEARENTETY (NMLSC_EXECUTOR, -1, EXEADR, 0, 0, 0) 


NML_CLEARENTITY (NMLSC_NODE, 2, EXEADR, 0, 0, 0); 


OOoooocece 


Morn 


END 
ELSE 
BEGIN 


if only certain executor parameters are to be deleted then check to see 
f the group of parameters is for the executor only or for the executor 
parameters which are common with other remote nodes. 
IF .NMLSGL_PRS_FLGS CNMLSV_PRS_EXEPG) 
5 og EMT ITY (NMLSC_EXECUTOR, -1, EXEADR, 0, 0, 0) 
NML_CLEARENTITY (NMLSC_NODE, 2, EXEADR, 0, 0, 0); 
END; 


: Build and send the status message. 
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; 267 NMLSBLD REPLY (NMLSAB MSGBLOCK, NSGSIZE); 
i 68 5 NMLSSEND (NMLSAB_SNDBOFFER, .MSGSIZE); 
: $70 6 END; ! End of NMLSCLEAREXECUTOR 


0004 .ENTRY NMLSCLEAREX ECuT OR, Save R2 : 0208 
52 00000000v 2 i HOVAR NML L_CLEA RENTITY, R2 ; 
F D C CLRL. = EXE ADR : 0 3 
14 000000006 00 gi 1 BBC a 1h NMLSGL_PRS_FLGS, 1$ i 0 5 
7E p4 1 CLRL ={3p) : 
OC AE 9F OOOIA PUSHAB EXEADR : 
7E 1 CE 0001 MNEGL #1, (SP) : 
7 OD PUSHL : 
$2 6 FB CALLS #6, NML_CLEARENTITY : 
2 g : 0 BLBC =E._«aRO. 4S ; 
15 11 000 BRB + 0244 
OE 000000006 90 59 O2A 1$: BLBC §- NMLSGL_PRS_FLGS+1, 2$ + 0254 
—E 7C 00031 CLRQ = = (SP) > 0256 
7E p4 00 : CLRL = = (SP) ; 
OC AE 9F 000 PUSHAB EXEADR ; 
7E 0 CE 000 MNEGL #1, -(SP) ; 
7 DD 00038 PUSHL #7 : 
08 11 0003D BRB 3$ : 
E C F : CLRQ -(SP : 
7C 0003F 28 (SP) 0258 
7E D& 00041 CLRL = = (SP) ; 
0c A F 0045 PUSHAB EXEADR F 
DD O46 PUSHL ; 
DD 0004 PUSHL # ; 
62 FB OO04A 3S: CALLS #6, NML_CLEARENTITY : 
04 9F 00040 4$: PUSHAB MSGSIZE~ + 0264 
000000006 OF 9030 PUSHAB NAL SA MSGBLOCK ; 
000000006 00 FB 036 CALLS NMCSBLD_REPLY ; 
04 D 0005 PUSHL ace > 0265 
000000006 0 F 00060 PUSHAB NMLSAB_SNDBUFFER : 
000000006 00 FB 00066 CALLS #2, NMCSSEND ; 
04 0006D RET : 0267 


3; Routine Size: 110 bytes, Routine Base: S$CODE$ + 004D 
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ZSBTTL "NMLSCLEARKNONODES Clear volatile node parameters' 


~~ 
om 


Specified node parameters or nodes cleared from database. 


BEGIN 

IF NOT .NMLSGL_PRS_FLGS CNMLS$V_PRS_LOOPG) 

BEGIN 

Clear executor node parameters. 
NMLSCLEAREXECUTOR (NMLSC_EXECUTOR, 0, 0); 
| Clear remote node parameters. 

NMLSCLEARKNOWN (NMLSC_NODE, 0, 0, 


GLOBAL ROUTINE NMLSCLEARKNONODES (ENTITY syne Dune. DUM3, 
a3 g 6um4, 6uM5) : NOVALUE = 
7 7 '¢¢ 
f ee FUNCTIONAL DESCRIPTION: 
ty 6 This routine clears parameters for all nodes. 

i 8 | a creas Entity t d 
' n e code. 
63 gt : DUM1 = DUMS Not wear” 
i i OUTPUTS: 
4 ! 
ae 
hae 
88 
89 
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APUNACOBNF APU IOOO IRE 


3 eo O, 03 ! No qualifier 
bs 
03 END 
3 If the parameter is specific to loop nodes then clear loop node parameters. 
ELSE 
0307 NMLSCLEARKNOWN (NMLS$C_LOOPNODE, 0, 0, 
0309 0, 0, 6); ! No qualifier 
0311 END; ! End of NMLSCLEARKNONODES 
0000 00000 -ENTRY NMLSCLEARKNONODES, Save nothing 3 8 70 
11 000000006 00 95 E 00 2 #3, NMLSGL_PRS_FLGS+1, 1$ ; 0290 
B 7c A -(§p) : 0296 
07 OD C PUSHL 4&7 3 
80 AF 93 FB CALLS #3, NMLSCLEAREXECUTOR : 
c ge CLRO 0 = ¢ §p) ; 0300 
7E 3 +5 0001 nova |S) (SP) : 
6 1. 00019 R ; ; 


eee eR eee ay are 


a es 


voLeo00 NALSELEARK ON apes’ clears volatile node paramete if: sen 1944 93:95:82 DESKS VMSHAS TERS CML SRCINMLCLEAR.B32-4°° cb) 
A RAE ge ci Te 
oooooooov 8 6 fB i 28: CALLS #8. NMLSCLEARKNOWN Fie 


; Routine Size: 42 bytes, Routine Base: S$CODES + 00BB 


; 316 0312 1 
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1 1 ZSBTTL "WAL ELE ARENT ITY Clear volatile epeity peremeters: 
1 ROUTINE NML-CLEA NTITY_A 


RENTITY (ENTITY, ENTITY_LEN, _ADR, 
QUAL_PST, QUAL_LEN,~QUAL_ADR) = 


'e¢ 


FUNCTIONAL DESCRIPTION: 
This routine clears parameters for the specified entity. 
INPUTS: 


Entity code. 
N Length of oy 19 string in bytes. 
R Address of enti d string. 
Qualifier PST entry address 
QUAL_LEN Qualifier Length 
QUAL _ADR Qualifier address 
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OUTPUTS: 
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FBSC_WILDCARD; 


1 

1 

1 

1 
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1 

1 

1 

1 
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1 

1 

1 
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1 

BEGIN 
LOCAL 

DB, 
SRCHKEY1, 
SRCHKEY2, 


3 
[e} es contents of the fo Owing: 
8 03 Modi fi f the followi 
40 03 NML$T_ENTBUFFER 
41 3 NML$SQ"ENTBFDSC COSC$W_LENGTH] 
4g 03 NML$AB_MSGBLOCK 
O35 NML$T_P2BUFFER 
NML$T~PRMBUF FER 
4b 0 $T 
45 0340 - 
46 0341 
47 0 4g 
48 034 
49 0344 
50 0345 
51 0 46 
SO 
54 349 MSGSIZE, 
55 350 NODADDR 
56 51 NFBDSC : DESCRIPTOR, 
57 356 P2DSC_ : DESCRIPTOR. 
t) 33 QBFDSC : DESCRIPTOR, 
59 54 STATUS, 
60 55 TMPSNK: 
; a 
5 58 ! Set up search key value for Q10. In this case it's the entity ID for 
: the ent ty eing cleared or elete e 
359 i th ity being cleared or deleted (CLEAR ALL) 
36 DB = .NMLSAB_ENTITYDATA C,ENTITY, ELTSB_DATABASE): 
36¢ SRCHKEY1 = .NMLSAB_ENTITYDATA C.ENTITY EITS SRCH_ID1); 
36 IF .NMLSGL_PRS_FLGS CNMLS$V_PRS QUALIFIER) THE 
64 SRCHKEV2 =". NMLSAB_ENTITYDATA C.ENTITY, ELTSL_SRCH_ID2] 
3 


FUN SSOVSA 


4] 
zz 
oO 
= 
xz 
-m 
m~< 
zn 
“ou 
‘Zz 


NAL et ARERT I TITY 1 eleer veletile entity paramete 18-ep-1984 99: 95: 88 ST EKSVMEMAS bas 


1 
: Set appropriate function code 


if, ;NALSGL_PRS_FLGS CNMLSV_PRS_ALL] 

FUNC = NFBSC_FC_DELETE 

FUNC = NFBSC_FC_CLEAR; 

i Clear parameters from the volatile data base entry. 
WML SBLDSETOBF (. Fe Ae ua 


ELSE 
' 


TITY LEN, | ofutity LADR, 
a arene “* UAL_ADR> 


Fate Peps ne 
‘ OFF 508 S° dérosc): 


a oes 


If .STATUS 
THEN 


RAC SAB _MSGBLOCK (MSBSL_FLAGS) = 
NL SAB MSGBLOCK CMSBSB-CODE] = “wnisc _STS_SUC; 


RETURN .STATUS 
END; ! End of NML_CLEARENTITY 


003C 00000 NML_CLEARENTITY: 
WORD pave R2,R3,R4 


000006 0 MOVAB NAL $ GL_PRS. peat? 
: 8 00000006 0 MOV NML SAB “ERITIVBATARS, R4 
1 SUBL 
MULLS #44, 


ENTIT 
MOV ZBL Ra SAB ltrs 5£ROI. DB 
HAB 


SfiStoct 


PUS LSAB_ENTI 

MOVL SPDs SRCMK 

BBC #2, NMLSGL_P 

PUSHAB NMLSAB “ENTITYDR 

MOVL a(SP)+> SRC 

BRB 2$ 

MOVL #1, SRCHKEY2 

MNEGL #1, Q MASSE: 

BBC a, GL ERS _FLGS, 38 

MOVL #33 

axe 4 

MOVL H 36. FUNC 

PUSHL 

PUS hm $60, QIOBFDSC 
NML$Q_P2BFDSC 

nFBDST 


$-32 v4.0 ° 
STER CWC SRCINMLCLEAR.B3204 


$ 


el WAL et ARENT ITY. Cleos ue volatile entity paramete ike 305-1382 93: 96: 4 Disk Vnehas FEASCWML SRC NMLCLEAR. a32:4°° (6) 
PUSHAB NMLS$O prseross 


000 § 
7E oe NB mova 3s «Q AL. -(5P) + 0383 
pp PUSHL rir : 
7E mova N ITY "een, -(SP) + 0382 
BB push nck : 0381 
000000006 00 Pe CALLS cROII rast : 
Dd PUSHL + 0387 
4 CLRL =(SP) 
10 AE OF PUSHAB P2DSC ; 
1C AE OOF PUSHAB NFBDSC 
000000006 FB CALLS ry NAL SNETOIO ; 
L U ; 
D © 8 STATUS, 5 89 
000000006 bs CLRL NAL SAB MSGBLOCK : 039 
000000006 00 1 30 nove , NMCSAB_MSGBLOCK+4 : 039 


; Routine Size: 148 bytes, Routine Base: SCODES + O0ES 


; 403 0398 1 


| 


VAX-11 Bliss-32 v4. 5 
SIEKSVRGMASTERCENPL SRCINMLCLEAR.B32¢4°" B | 
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NALSELEAR ARK OL0G ay Ana poreneters for known log 1b-bep-1984 99:98:88 
3 gsortt me TCL Cannel Os Cleae parameters for k lo gins" 


NALSCL NOLOG SUR. hs AP DURE” UA . 


=285855 


lee 
FUNCTIONAL DESCRIPTION: 


; Routine Size: 37 bytes, Routine Base: SCODE$ + 0179 


$ 1 : 
; 1 ; 
; o | : 
; ai8 } Sloor parameters for all volatile data base entries of the specified : 
> 4h ii eet : 
; 613 INPUTS: : 
; a9 11:13 ENTITY Entity type code. : 
; 41 ' DUM] = DUM2 Not used. ; 
; 4 ei { outputs: : 
; 2 § \$ ; & ALL logging paramters are deleted from the database. ‘ 
: 624 18 1 ; 
; 4 € 19 , BEGIN 
: ‘ ; 1 } Add parameters to all sinks. : 
: 6 : " NMLSCLEARLOGGING ( “ENTITY, NMASC_SNK_CON, ); ' Console : 
; 4 r NMLSCLEARLOGGING (.ENTITY, NMASC-SNK-FIL, 0): | File ; 
; 4 1 5 NMLSCLEARLOGGING (. ENTITY, NMASC-SNK-MON, 0); | Monitor ; 
: 438 ; END; ! End of NMLSCLEARKNOLOG ; 
ENTRY NMLSCLEARK*IOLOG. Saye R2 : 0400 : 

52 00000000v 00" 9 MOVAB NAL SCLEARL OGGING, : : 

mova =-(SP) > 0423 : 

2 “e Os fo FB CALS eu I Melt SCLEARLOGGING ; : 

$ 8 7D va #2 ws -(SP) : 0426 ; 

2 - 03 PB CACC ent iN NMLSCLEARLOGGING ; ; 

$f 8 7D vo a. ms = (SP) : 0425 ; 

04 Ac oD SHL ENT! : : 

62 03 FB CALLS #3, TL SCLEARLOGGING : : 

04 RET 3; 0427 : 


vad il WU SELEARLDeGING  Cleor Legging pereneters 1b-te ciaales 99305 8ePEEKSUMGMASTER CWC SRCSWMLCLEAR.B3201°" (B 


NML$Q_ENTBFDSC Dstsw_ LENGTH) = 
mt SO ENTBFDSC COSC “POINTER) = ‘must -ENTBUFFER; 
CRAR (.SNK, NMLST_ENTBUFFER); 


Set up message information. 


NMLSAB_MSGBLOCK (MSBEV_ ENTO. 4 oJ = 1; ! Set entity descriptor flag 
NMLSAB-MSGBLOCK CMSBSA_E 


SSVSASONTASSELS. 


ate -ENTBFDSC; ! Add entity descriptor pointer 
Build and send the message. 


NMLSBLD_REPLY (NMLSAB_MSGBLOCK, MSG_SIZE); 
NMLSSEND (NMLSAB_SNDBOFFER, Asc ef IZE); 


; 4 ZSBTTL SCLEARLOGGING Clear lo arameter 

is GLOBAL ROUTINE NALSCLEARLOGGING CERTITE, Shite DURS) : NOVALUE = 
: 6 1 t+ 

: rb ! ; FUNCTIONAL DESCRIPTION: 

: ore ! i Removes parameters to the volatile data base entry for the specified 
3 rr 5 : Logging entity. 

: 644 1 ' INPUTS: 

3; 46465 1! 

it eee a ate rete 

: 66 41 1! DUM2 Not used. _ 

; & tg 1! 

; 4650 4 1 ! OUTPUTS: 

; 451 44 1! 

3 2 § o2 : Specified parameters or entities cleared from database. 
: 454 <3 Bs 

; 655 rt BEGIN 

; 4 $ 4 

; 4 ? LOCAL 

; 4 : MSG_SIZE; ! Message size 

; 4 § 

; 4660 ' 

3 ret : See if parameter indicates all parameters. 

> 46 6 "TF .NMLSGL_PRS_FLGS CNMLSV_PRS_ALLJ 

; 666 TH 

; 465 3 NAL_CLEARLOGALL (.SNK) 

3 $08 5 ELSE 

; 46 60 : 

; ree e : Decide if the parameter group is for filters (EFI) or sinks (ESI). 
; rth e§ : IF .NMLSGL_PRS_FLGS CNMLSV_PRS_ESIPG) 

; 47 65 ex gg hMteCLEARENTITY (NMLSC_SINK, 1, SNK) 

; 474 NML_CLEARLOGGING (.SNK, .NMLSGW_EVTSNKADR) ; 

; $2 Add entity id (sink type code) to 2% buffer. 

: 47. : 
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yoreobo NALSCL ARLbOG a baser te logging parameters 1b-ep-1984 99:95:80 DIK SVMGHAS ERSCWML SRCINMLCLEAR.B3204°" (BS 
£3 rk f END; ! End of NMLSCLEARLOGGING 


¢ .ENTRY NAL SCLEARLOGGING, | ave R2,R3 3 0429 
Booosoo0 povan Matsa 
? aoye NML$Q ENTSr Doe. 7) 3 
0C 000000006 1 € BBC #1, NMLSGL_PRS_FLGS, 1% : 0456 
08 ac OO PUSH 3 
00000000v 00 re CALL #1, NML_CLEARLOGALL : 
OE 000000006 00 g BBC #4, NMLSGL_PRS_FLGS+1, 2$ ; 9663 
08 at F PUSHAB SNK : 0465 
DD PUSHL : 
j DD PUSHL a : 
FFOC «OCF ; 6 CALLS #3, NML_CLEARENTITY : 
7E 000 96 00 i MOVZWL NMLSGW_EVTSNKADR, -(SP) + 0467 
7 AC 0D PUSHL SNK : 
00000000v 9 FB CALLS a2. NAL CLEARLOGGING : 
& mOvW NMLSO_E + 0471 
06 =A c0 A2 MOVAB wal ST NTBUEFER. NALSO_ ENTBFDSC+4 + 047 
co OCA A MOVB TAR STCE FFER + 047 
6 1 B1SB2 ASeBLO OCK : 047 
— 3 E v i ENTBFOSC, NMLSAB_MSGBLOCK+20 > 047 
4008 8F 6B PUSHR M<R3,SP> : 048 
000000006 00 2 FB CALLS #2 NMLSBLD_REPLY : 
6 bb PUSHL - > 0484 
000000006 PUSHAB NMLSAB suoourren : 
000000006 02 FB CALLS #2, NMCSSEND 3 
04 RET + 0486 


; Routine Size: 125 bytes, Routine Base: S$CODES + 019€ 


$3 
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NAL CLEAR parameter module 18-3¢ -1 :02:00 VAX-11 Bliss-32 V4.0-74 P 1 
NAL EL ARLOGGING Clear entity parameters 1 7350-1382 99:95:88 DISKSVMSMASTER: CNML.SRC NMLCLEAR.B32;1> (3 
ZSBTTL “NML_CLEARLOGGING Clear entit ameters' 
ROUTINE NMLTCLEARLOGGING (SNK. SNKADR) © NOVALUE = 
t 


tee 
FUNCTIONAL DESCRIPTION: 


$3 


$3 
' 


ee 


— as 
MEW —OOONOUF wt DONONPUIN—OSRUF ARGO SSO UE 


This routine performs clear functions on the logging volatile data 
base for both singular and plural requests. 


SNK L ing sink t ° 
SNKADR it nate edérees. 


; OUTPUTS: 


Specified parameters cleared from database. 


BEGIN 


SNKADR : WORD; 
LOCAL 
SRCHKEY1, 
: REF DESCRIPTOR, 


' Database ID 

' Search key one ID 

! Function to perform 

! Dummy descriptor for table 


: REF DESCRIPTOR, 
: DESCRIPTOR, 
: DESCRIPTOR, 


QBFOSC =: DESCRIPTOR, 
Hh a : DESCRIPTOR, 


DES : REF DESCRIPTOR, 
NK, ' Temporary sink address 
: ! Data base update flag 


NMLSAB_MSGBLOCK EnseR FLAGS = 0; ! Initialize message flags 
RECDSC (OSCSW_LENGTH) = 0; ! Initial gescriptor 
RECDSC LDSCSA_POINTER] = .NMLSGQ_RECBFDSC COSCSA_POINTER); 
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é Get the logging sink node information. 
i __NRLREEDPET TABS SAUSE'OF4S-AMUSSHEEFDLE: BEBEESTADSC- PUWSC. > 
4 ! Look for the sink node entry in the volatile data base. If no entry is 
Z t : found then just return. If an error is encountered then return it. 
4 a} STATUS = NMLSNETQIO (.SHOW_NFBDSC, P2DSC, 0, NML$GQ_QIOBFDSC); 

1 rk IF .STATUS EQL NMLS_STS_CMP 


SescRenss 


SSSERSo re. 


SAAN 
ONOULSWN OW” 


LY rah ah sh Ab Ah sh Ah Ab dh Ab-db Abb Ab Ad tb Ab Ab Ab tb dh sb dh sbedh sb th sb sh al ab ab aleal 


SELSSEANLESESS 


23 


PEPPY EPL LEE 


WN OODNA NEW OOONOUSE 


OGOOCOQOOGOOOSOOOSCSOSOSCOOSCSOSOSOLN JOOOOCOCOCOOOOOOOOOO 


Av val tal ah sh Ah Ab Ab Ab Ab Ab Ab Ab Ab Ab Ab Ad Ad ib db db db bedbudh Ab dhedh sh sh ah ah sh ah ah ah ah seemeal al al al al eal eal alee ewww Ww) 


SSSLESRIN SSS VSALAN SS SSNS ARUN ISSO UR 


SSS SS . a ~4 


H 10 
LEAR paraneter module 16-Sep-1984 00:02:00 VAX-11 Bliss-32 V4.0-74 Pp 19 
LEARLBeGING Clear entity parameters 1o-808= 1382 99:95:80 DE KSVMGHASTERSENPL SRCINMLCLEAR.B3204°° (9) 


THEN 


BEGIN 
NAL $AB_MSGBLOCK Reet FLAGS? = 0; 
tae tama MSBS$B-CODE) = NMASC_STS_SUC; 


IF NOT .STATUS 
RETURN; 
PTR = .NML$GQ_QIOBFDSC CDSCSA_POINTER); 


If the Length of the parameter is not zero then store the event information 
in a record that looks Like the permanent data base. 


IF NOT NMLSSAVEVENTS (.NML$GQ_RECBFDSC COSC$W_LENGTHI, 
TR)20,16 


PTR + 
RECDSC) 
THEN 
RETURN; 


Add event to record. 


IF NOT NMLSADDEVENTS (FALSE, RECDSC, .SNK, .SNKADR, UPDFLG) 
RETURN; 


If there are any filters left, replace them in the volatile data base. 
Otherwise, deiete the entire sink node entry. 


IF .UPDFLG 
THEN 


ev ggrUNe = NFBSC_FC_SET 
FUNC = NFBSC_FC_DELETE; 


DB = .NMLSAB_ENTITYDATA CNMLSC_LOGGING, EI1T$B8_DATABASE); 
SRCHKEY] = .AMLSAB_ENTITYDATA CNMLS$C_LOGGING, EITSL_SRCH_1D1); 
TABDES = .NMLSAB_ERTITYDATA CNMLSC_LOGGING, E1TSA_ACLTABI; 
| 


NMLSBLDALLDES (RECDSC, .TABDES); 
NMLSBLDSETOBF (.FUNC, .bB, 
“SRCHKEY1, 0, SNKADR 
NFBSC_WILOCARD, -1, 0, 
NMLS$Q"NFBBFDSC, CLEAR_NFBDSC, 
NMLSQ-P2BFDSC,  PoDSC 
NML$GO_Q1OBFDSC, OBFDSC); 


4 we. SME TOLS (CLEAR_NFBDSC, P2DSC, 0, QBFDSC) 
BEGIN 


NMLSAB_MSGBLOCK PRSBSL FLAG J = 0; 


NMLSAB"MSGBLOCK CMSB$B-CODE) = NMASC_STS_SUC; 


—— —— 


10 


SCLEAR NML CLEAR parameter module Sep-1984 0 VAX-11 s-32 V 0 
VOL 000 NML_CLEARLOGGING Clear entity parameters 12786871382 99: 95: 82 DISK $v nen TER: aN SRCINMLCLEAR. B32; 4 ox 3 
g 1 END; 
oe BG 
; 61 END; ! End of NML_CLEARLOGGING 

O3FC 00000 NML_CLEARLOGGING: 
«WORD Save R2,R3,R Ré R5,R6,R7,RB,RP : 0488 
G E 0000 v NMLSNETOIO ; 
G : MOVAB NMLSAB_ ENTITY DATA+49, RB : 
G MOVAB NML$GO- Gy08r DSc R? : 
§ — 0001 MOVAB NAL S$ P28 R : 
6 H 01 MOV $AB_MS SeBLOeK. R5 ; 
E : C2 000 SUBL Py p : 
D4 000 CLRL NML$AB_MSGBLOCK F 0529 
o¢ AE B4 0000A CLRW OR + 0530 
10 AE 000000006 9 D0 MOVL §§ NML$GOQ_RECBFDSC+4, RECDSC+4 > 0531 
E p4 CLRL = = (SP) > 0535 
04 AE 9F 00 PUSHAB DUMDSC : 
C AE 9F OOO3A PUSHAB SHOW_NFBDSC : 
4 0D 00030 PUSHL #4 : 
1 DD 0003F PUSHL #1 : 
000000006 00 5 FB 00041 CALLS #5, NMLSGETINF TABS : 
1¢ AE 9F 00048 PUSHAB P2DSC : 0536 
3 DD 00048 PUSHL R6 ; 
E D4 00040 CLRL. = SP) ; 
7E 01 ce OO4F MNEGL #1, (SP) ; 
7E 08 ac 3C 00052 MOVZWL SNKADR, =(SP) : 
7E D4 0096 CLRL SP ; 
000000006 00 06 FB 0005 CALLS a, NMLSBLDP2 ; 
DD 0005F PUSHL R + 0541 
7E D4 00061 LRL ss = (SP) ; 
24 AE 9F 00063 PUSHAB P2DSC F 
10 AE DD 9066 PUSHL sHOw DSC : 
69 4 FB 00069 CALLS RM SHE F910 3 
FFFFFFFO 8F 0D 906 CMPL stATU #-16 > 0543 
6 12 00 BNEG : 
ps 007 CLAL NAL SAB MSGBLOCK : 0546 
04 AS 1 9 7 MOVB NMCSAB_MSGBLOCK+4 : 0547 
34 9 E 7B 1$: BLBC STAT TUS, : 0550 
0 4 A? 00 0007 MOVL NALSGO. QIOBFDSC+4, PTR > 0554 
§ AE OF PUSHAB RECDSC™ ; 0559 
AO OF PUSHAB e(pT PTR ) 3 0561 
7E C MOVZWL (SP) : 0560 
43 000000006 ¢ MOVZWL MAA RECBFDSC, -(SP) : 0559 
000000006 9 4 Fe CALLS #4, NMCSSAVEVENTS F 
A 0 BLBC =E_s«aRRO,._: 58 ; 
2 AE OF PUSHAB UPDFLG > 0568 
7E AC 3¢ MOVZWL SNKADR. -(SP) F 
4 ac bb PUSHL SNK : 
8 AE OF PUSHAB RECDSC ; 
7E D4 CLRL 5°? ; 
000000006 00 : F CALLS #5, NMLSADDEVENTS ; 
61 £ 2$ BLBC : 
5 08 AE CE BLBC —*UPOFLG, 3$ : 0576 


a I, TR cn, ct cern N.S ODN a en ret. on ENE OEE NSEC I A ON ct EE 
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be 


NAL ARLOGGING Clear entity parameters 


SCLEAR NML CLEAR parameter module 
Vos 000 CLE ear. 


52 p 89 MOVL #35, FUNC : 0578 
BC BRB 4 : 
? Bf 7: nov, #33, FUNC 3; 058 
A 000C1 4$: MOVZBL NMLSAB_ENTITYDATA+49, DB : 058 
: 01 A 06 C4 MOVL  NMLSAB-ENTITYDATA+50, SRCHKEY1 + 058 
3 ABO (8 MOVL § NMLSAB-ENTITYDATA+84, TABDES + 0584 
50 od 000CC PUSHL TABDES : 0586 
10 AE OF cE PUSHAB RE CDS¢ : 
000000006 00 02 FB 000D CALLS #2, NMLSBLDALLDES ; 
146 AE SF 00008 PUSHAB QBFDSC + 0587 
5? DD 000DB PUSHL ; 
24 AE 9F 000D PUSHAB Pepsc : 
56 DD OO0E PUSHL R : 
4 AE 99F OOOE PUSHAB CLEAR_NFBDSC F 
8 Ab OF OO0E PUSHAB NMLSQ-NFBBFDSC ; 
7E 04 000E8 CLRL = = (SP) : 
7E gi CE OOOEA EGL #1, -(SP) + 0589 
1 0D OED PUSHL #1 + 0587 
08 AC 9F OOOEF PUSHAB SNKADR F 
3 D4 000F2 CLRL = = (SP) : 
53 DD OOF PUSHL  SRCHKEY1 > 0588 
14 BB 00 r6 PUSHK  #*M<R2,R4> + 0587 
000000006 00 OE FB O00F CALLS #74, NMLSBLDSETOBF : 
14 AE OF OOOFF PUSHAB QBFOSC + 0594 
7E D4 00102 CLRL = F 
4 AE 9F 00104 PUSHAB P2DSC ; 
0 AE 9F 00107 PUSHAB CLEAR_NFBDSC : 
69 04 FB QO10A CALLS #4, NALSNETOIO ; 
06 Q E9 0010D BLBC : : 
65 D4 00110 CLRL § NMLS$AB_MSGBLOCK : 0598 
04 AS 01 90 0011 MOVB #1, NMCSAB_MSGBLOCK+4 : 0599 
04 00116 5$: RET > 0603 


; Routine Size: 279 bytes, Routine Base: SCODES + 021B 
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NAL CLEAR parameter module 
NML_CLEARLOGALL Clear all logging parameters 


0 
4 


K 1 
16-Sep-19 :02: VAX-11 Bliss-32 V4.0-74 P 2 
1 ~Sep-19 4 99:05:88 DLSKSVMGHASTERENML SRCINMLCLEAR.B3204 7" (105 
1 ZSBTTL "NML_CLEARLOGALL Clear all lo ging parameters’ 


! ROUTINE NML_CLEARLOGALL (SNK) : NOVAL 
1 tee 
! } FUNCTIONAL DESCRIPTION: 
1 i This routine clears all parameters for the specified logging sink type 
1} } : from the volatile data bese. , sia ™ 
i§ 1 | INPUTS: 
14#$1! 
15 1! SNK 
1 1! 
' : OUTPUTS: 
18 1 ALL parameters for the sink type are deleted from the database. 
| tt 
¢ BEGIN 
624 LOCAL 
5 BUFEND, 
§ ! Database ID 
S é Vs ! Search key one ID 
8 UMDSC : REF DESCRIPTOR, 
9 ENTITYADD, 
0 ENTITYLEN 
1 LISDSC : DESCRIPTOR, ! List buffer descriptor 
; MSGFLG : BYTE, ! Response message flag 
SHOW _NFBDSC : REF DESCRIPTOR, ! NFB descriptor address 
be CLEAR _NFGDSC : DESCRIPTOR, 
5 P2DSC_ : DESCRIPTOR, 
6 PRMDSC : DESCRIPTOR, 
PTR ! Pointer into sink node List 
3 QBFOSC : DESCRIPTOR, 
RECDSC : DESCRIPTOR, ' Record descriptor 
0 SETOSC : DESCRIPTOR, ' Event parameter descriptor 
1 NKADR : WORD, ' Address of sink node 
§ SRCPTR, ! Pointer to source block 
STATUS 
r STRTFLG, 
46 TMPSNK; ! Temporary sink address 
! 
8 i Get entity database ID, the search key value, and clear the 
Hs ; parameter descriptor count. 
51 DB = .NMLSAB_ENTITYDATA CNMLSC_LOGGING, EIT$SB_DATABASE); 
5 SRCHKEY1 = .RMLSAB_ENTITYDATA CNMLS$C_LOGGING, EITSL_SRCH_1D1); 
? : NMLSGW_PRMDESCNT = 0; 
5 Clear the sink parameters. If error then don't do any more. 
3$ " §$TATUS = NML_CLEARENTITY (NMLSC_SINK, 1, SNK); 
38 IF NOT .STATUS AND (.STATUS NEQ NML$_STS_CMP) 
0 THEN 


5 


670 1 
i 
67 4 
ns! 
a: 
§ 


SSSa 


: 
: 9 
: es 
; reid 7% 
. on 
+ 689 0680 
; 690 ret 
: 691 6 é 
: 69 6 

: 69 i 
3 694 5 
s 695 86 
; 696 87 
3; 697 88 
: 35 $50 
: 700 691 
: OB 069 
: 70 ey 
> 704 0695 
: 10? rt] 
; 109 98 
8 a 
pe a 
He x 
: 714 705 
He : 
: 71 708 
2: es 
; 720 711 
: OS! rg 
ae 7 714 
: 724 715 
; 725 rig 
: 726 71 


on 
-- 


ARLOGALL flear” it logging parameters 
RETURN; 
Purge the logging filter data. 
STRTFLG = FALSE; 
WHILE (STATUS = NMLSGET_ENTITY_IDS Se pt LOGGING, 


14-Sep-1 


NMASC_ERT_KNO, 
0 
.$TR FLG, 
LISDSC)) DO 


BEGIN 


PTR = .LISDSC COSCSA_POINTERI; 
BUF END = .LISDSC CDSCSA_POINTER] + .LISDSC COSC$W_LENGTHI; 


Set up success message as the default. 


NMLS$AB_MSGBLOCK CMSBSL_FLAGS] = 0; 
NMLSAB_MSGBLOCK CMSBSB-CODE] = NMASC_STS_SUC; 


WHILE .PTR LSSA .BUFEND DO 
BEGIN 


STRTFLG = TRUE; 
SNKADR = .(.PTR)<0,16>; 
PTR = .PTR + 4; 


Get the data. 
NMLSGETINFTABS (NMLSC LOGGING \ ears btn SHOW_NFBDSC, 
NMLSBLDP2 (0, .SNKADR, -1, 0, NMLSQ_P2BFDSC, P2DSC); 
STATUS = NMLSNETQIO (.SHOW_NFBDSC, 

P2DSC, 


NML$GQ_QIOBFDSC); 
If Q10 fails then don't do any more. 
IF NOT .STATUS 
EXITLOOP; 
SETDSC COSCSW_ 
-NALS 


Q- DSCSA_POINTER])<0,16>; 
SETDSC | rest SA- 


i CSA_POINTER] + 2; 

$u -LENGTH, 

+ rPOIN TERS 

DSC COSCS$A_POINTER)); 

= .SETDSC CDSC$W_LENCTH); 


onic 


Tost 


Po ot ot ot ot ot ot ot ot ot ot ot ot ot ot ot ot ot ot ot ot ot ot ot ot ot ot ot ot ot ot ot ot ett ttt] 


EARLBGALE “less 1§-te 300-1 88e 93:96:00 DAS CSUMGMASTER- CNM SACSNMLCLEAR.B3204 


Fase 483 


ref 


SCLEAR NML CLEAR parameter module 4 VAX-11 Bliss-32 V4.0 4 NAL 
YO%~ 000 NAL _ECEARL GALL Clear all logging parameters 1§-ep-1984 99: 95: 4 DISK SKSVMGN TER: CNML. she NMLCLEAR. B32"3 9 48) Tab 
3 7 4, : -NMLSQ_EVTBFDSC COSCSA_PUINTER); 

3 t 4 Clear event filters. 

: 731 7 ; 4 SRCPTR = 0; 

; f 3 f ; WHILE NAL GETNXTSNK (PRMDSC, .SNK, SRCPTR) DO 

: 7 725 

3; 735 7 $ san (PRMDSC, .SRCPTR); 

3 f 5 RCP : Start at the beginning again 
ae 729 4 END; 

ae 3 750 4 

; 740 731 4 ! 

3; «741 7 § 4 i If event parameter has nothing in it then clear the entire 
; 74 7 4 ! sink node in from the volatile data base. 

; 74 734 4 ! 

: 744 735 4 TMPSNK 

; 49 07 $ ‘ IF <PRMDSC stpstsu. LENGTH] EQLU 0 

: aS 7 8 4 NML_CLEARENTITY (NMLSC_LOGGING, 0, TMPSNK) 

; 748 7 4 ELSE 

3 oH oy ; BEGIN 

: 751 re i Set the event information up as a parameter in a 

: Tee 074 ermanent data base record for processing by the 

3 Pez re ET Q10 routines. 

> 755 746 3 REC DSC [DSCS$W_ LENGTH 

3; 756 74 RECDSC CDSCSA-POINTER } = * NMLSGQ RECBFDSC CDSC$A_POINTER]; 
> 757 0748 3 IF NOT NM WML SSAUEVENTS (.NML$GQ_RECBFDSC CDSC$W_LENGTH), 
3; 758 074 ~PRMDSC “PDSCSW_LENGTH) 

: 759 750 -PRMDSC COSCSA-POINTERI, 

3 760 ie} — RECDSC) 

: r6 i RETURN; 

: 764 755 i Build Q10 buffer and add the parameters to the 

3 re? 73g volatile database entry. 

: 767 758 NMLSBLDALLDES (RECDSC 

; 768 759 .NMLSAB_ENTITYDATA CNML$C_LOGGING 

; 769 760 EITSATALLTABJ); 

3; 770 761 NMLSBLDSETQBF (NFBSC FC SET 

: 771 76 RCAK Ey 6 PRES 

: 77 76 weBsc ILOCARD, -1 

: 77 764 NAL $0 =NEBBFDSC: CLEAR” NFBDSC, 

; 774 765 ML$Q-P2BFDS 

; Ag 766 NALSGO ParoBr osc, Papr ogc): 

; oe 16 STATUS = NMLSNETQIO (CLEAR_NFBDSC, P2DSC, 0, QBFDSC); 
: a 270 IF NOT .STATUS 

; HY di EXITLOOP; 

ca Z 774 & END; 


if 10 


; i : re END; 
; f f $ IF NOT .STATUS 
; f 8 EXITLOOP; 
; ie f | END; 
; 79 7 : IF STATUS 
: 79 , 4 OR (STATUS EQL NML$_STS_CMP) 
; £99 g 6 BEGIN 
: 79 0788 NMLSAB_MSGBLOCK [MSBSL_FLAGS] = 0; 
; 198 0789 NMLSAB-MSGBLOCK CMSB$B~CODE] = NMASC_STS_SUC; 
3 B01 tad! END; 
3 802 $798 1 END; ! End of NML_CLEARLOGALL 
OFFC 00000 NML_CLEARLOGALL: 
WORD Saye Re. R3.R4,R5,R6,R7.RB.R9,R10,R11 
5E B4 AE 9E 00002 MOVAB =76(S p 
E 000000006 00 9A 00006 MOV ZBL NMLSAB. ETI TYDATASG9, DB 
5B 000000006 00 00 0000D MOVL  NMLSAB"ENTITYDATA+50, SRCHKEY1 
000000006 00 B4 0014 CLRW NML SGU PRMDESCNT 
04 AC 9F OOOIA PUSHAB SNK 
1 DD 0001D PUSHL 
; DD O001F PUSHL ae 
FD8D cf FB 00021 CALLS @# Ni CLEARENTITY 
7 : D0 0026 MOVL RO. STATUS 
OA 57 £8 00029 BLBS Or ATUS. rf 
FFFFFFFO BF 37 D1 000 CMPL STATUS. #-16 
1 13 000 BEQL «i$ 
04 000 RET 
59 p4 00 1$ CLRL —- STRTFLG 
48 Ar F 00038 2$ PUSHAB LISDSC 
59 DD 000 PUSHL STRIFLG 
7E D4 00030 CLRL (SP) 
7E 1 CE 9 F EGL #1, -(SP) 
1 DD 2 PUSHL #1 
000000006 : 5 F 4 CALLS #5, NM SGET LENTITY_IDS 
9 D 48 VL = RO, STATUS 
j E af BLBC = STATUS, 
3 af AE 00 0005 OVL Lispsté4, PTR 
0 4 AF C 6 5 MOVZWL LISDS RO 
04 AE 4c BE4 : 9 MOVAB aL ibsto4 RO), BUFEND 
000000006 00 p 005F CLRL NAL AB_MSGBLOCK 
000000006 00 1 90 00065 VB NMCSAB_MSGBLOCK+4 
04 AE 8 D1 00060 38: CMPL PTR, BUPEND 
fF BLSSU 
013¢ 31 0007 BRW $ 
59 07 00 00075 4$ MOVL #1, STRTFLG 


NAL _ECEARL Sire’ tlear att Logging parameters 12: oH 71382 99: 95: 88 DISK $V VMSHA AS} ERSEN NMC SRCINMLCLEAR. B32; PH «183 


NAL CLEAR parameter module 
WAL_CLEARLOGALL Clear all logging parameters 


vor=006 


— + 


i 8 ae 
of A oF 
4 yi f 
i 88 
0006 00 03 Fe A 
00000006" 09 F 00094 
" aa 
n 6 OR ERS 
000000006 00 é FB Ae 
000000006 09 oF AB 
18 AE DD aB3 
000000006 9 f F it 
H 36 6 00C8 
00k 5 a9 
m 50 000000006 6 00 90¢9 6S: 
1¢ A 8 AO 8 sit 
56 000000 ; 00 06 009 
66 1¢ «BE 18 «AE 00E0 
30 AE 18 AE BO O00E6 
4 AE 56 DO OO00EB 
10 AE D4 OOEF 7$: 
10 AE OF OFe 
& he OP Ooore 
000000006 00 o§ t i 
10 AE DD 19 
34 AE 9F 00108 
000000006 00 02 re i 
16 AE BF : 114 8$: 
30. AE 85 118 
OE 118 
' 14 i r is 
FC8B CF F 1 
at’ 3, i B 9S: 
24 Ae 000000006 06 0 001 : 
AE 9F 001 
i M8 i 
43 000000006 : ¢ 
000000006 4 


soocoogye 


T™ 
-s3eo~ 
~Sep-1 


Bl issese V4.0-74 


Bho 99:98 :be  PtedlwGhASfeRscume sec Sum cLear.e3204°° (186 
R 


Vw (PTR)+, SNKADR : 0687 
ADDL2 #2, PT : 06 
LRL = ($P) : 069 
SHAB DUMDSC : 
PUSHAB SHOW_NFBDSC : 
PUSHL 4 : 
PUSHL #1 : 
CALLS #5, NMLSGETINF TABS : 
PUSHAB P20 + 0694 
PUSHAB NML$Q_P2BFDSC ; 
CLRL = = ( SP) : 
EGL #1, -(SP) : 
MOVZWL SNKADR, -(SP) F 
CLRL = =( SP) : 
CALLS #6, NMLSBLDP2 : 
PUSHAB NML$GQ_QIOBFDSC + 0696 
CLRL = ( SP) : 
PUSHAB P2DSC : 
PUSHL SHOW NFBDSC : 
CALLS #4, RMLSNETQIO : 
MOVL RO, STATUS : 
BLBS STATUS, 6 : 0703 
BRW 1$ 3 
MOVL NL $60 QIOBFDSC+4, RO + 0708 
MOVW (RO), SETD : 
MOVAB 2(ROS, SETDSC+4 + 0710 
MOVL # NML$Q EVTBFDSC+4, R : 0714 
MOVCS SETDSC, aSETDSC+é, (RO) : 
MOV SETDSC. PRMDSC : 0716 
VL R6, PRMDSC : 0718 
CLRL = SREPTR : O7ee 
PUSHAB SRCPTR : 07 
PUSHL § : 
PUSHAB PRMDSC : 
CALLS a3, NML $GE TNXTSNK : 
BLBC ~=Es_—s«aRO,._ BSS : 
PUSHL SRCPTR : 0726 
PUSHAB PRMDSC ; 
CALLS a2. NMLSREMSRC ; 

RB 3; 0727 
MOVZWL SNKADR, TMPSNK : 0735 
TSTW | PRMDSC : 0736 
BNEQ ; 
PUSHAB TMPSNK : 0738 
mova #1, _=(SP) : 
CALLS f ; NML_CLEARENTITY : 

CLRW RECDSC + 0746 
VL NMLSGQ_RECBFDSC+4, RECDSC+4 + 0747 
PUSHAB RECDSC : 0748 
SHL  PRMDSC+4 : 0750 
MOVZWL PRMDSC, -(SP) : 0749 
MOVZ2WL NML$GO RECBFDSC, -(SP) > 0748 
CALLS #4, NMCSSAVEVENTS ; 

LBC » 3 
PUSHL NMLSAB_ENTITYDATA+84 : 07 9 
PUSHAB RECDSC : 0758 


iva NAL. CLEARL Siete el eer alt logging parameters 1$-bep-1944 99: 95 4 ST EKSUMGMASTERSENML see NMLCLEAR.B32.4°" (105 


| 
| 
000000006 00 9 fe 13 CALLS Hae. NMLSBLDALLDES 3 0761 | 
0000008 00 9F 001 PUSHAB WA as ps § _QIOBFDSC ; 
AE 9F O016A PUSHAB P 5 : 
* 06 9F 001 PUSHAB NAL $4 BFDSC ; 
ar F 001 PUSHAB AR- “hiBpse ; 
00000000' 9 F 00176 PUSHAB NMLSO-NFBBFDSC : 
t d4 0017¢ CLRL wtp - ; 
7E 0 CE 001 MNEGL #1, =(SP) ; 0763, 
1 BD 1 PUSHL #1 : 0761 
38 «AE OOF 001 PUSHAB TMPSNK : 
E 04 001 CLRL 0s = (SP) F 
B DD 001 PUSHL  SRCHKEY1 > 0762 
30 AF DD 0018A PUSHL 0D > 0761 
DD 001 PUSHL #35 : 
000000006 00 — FB 001 CALLS #14, NMLSBLDSETOBF : 
28 «AE OF 001 PUSHAB QBFOSC + 0768 
7E D4 001 CLRL = ( SP) ; 
40 AE 9F 00198 PUSHAB P2DSC : 
4C AE OOF 19 PUSHAB CLEAR_NFBDSC : 
000000006 99 4 FB OOIA CALLS as. NAL SNETOIO : 
: DO O01A8 MOVL ; 
03 5 1AB BLBC TATUS, 10$ : 0770 
FEBS 1 1A BRW ; 
03 ‘ 5 181 10$:  BLBC TATUS, 11$ : 0777 
FE | 1 00184 BRW : 
FFFFFFFO  8F ? D1 187 118: CHL ) ep #-16 + 0784 
000000006 00 D4 186 CLAL NL SAB SGBLOCK : 0788 
000000006 00 1 90 001C6 MOVE LSMRCSAB _MSGBLOCK+4 : 0789 
04 OO1CD 12$: _—sRET : 0793 


; Routine Size: 462 bytes, Routine Base: SCODE$S + 0332 
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ZSBTTL hE art te Clear veuetyte arameters' 
GLOBAL ROUTINE NMLSCLEARKNOWN ENTITY, pres eghbt- ENT yi hy ofPh- 


ad 


‘oe 


! FUNCTIONAL DESCRIPTION: 


This routine removes parameters from all entries of the specified 
entity type in the volatile data base. 


! INPUTS: 

ENTITY Enc ity Ent ENG code. 

ENTITY_LEN NMASC_ENT_KNO = clear known entities 

NMASC"ENT_ACT = clear active entities 
>0 = Clear caeten entries (used when entity has 
suletate entries, as in the cose of GROUPs which 
have one database gotry for each DTE in the group. 
peorese gt entity ID string f° ENTITY_LEN > 0. 
used. 


Modifies contents of the following: 


NMLST_ENTBUFFER 

NMLSQ-ENTBFDSC COSC$W_LENGTH] 
wa SAS _f MSGBLOCK 

NMLSAB- SNDBUFFER 

NAST _PRMBUF FER 


OONOV EW "OOOO fur 


ae We nad dd wd i td 


Virus 
OOONAVS WN OOOO fw OC 


FUNC, 
BUF END, 
DB 
SRCHKEY1, 


w 
(GO GP C9 GO GP 09 C9 GO G9 09.0 GO Gd Go Go G2 G2. G0 G9 C 


Vlbwr— 


: DESCRIPTOR, 


: DESCRIPTOR, 
: DESCRIPTOR, 


: DESCRIPTOR, 
H WORD, 
STRIFLG; 


Get volatile database info 


be = -NMLSAB_ENTITYDATA C.ENTITY 
SRCHKEY1 = -RMLSAB_ ENTITYDATA LC. 


ater tetete tte 


DONO NEW O OONO UE Ww Oo 


EIT 
énTit 
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NALSEL ARK C eer volatile parameters 1 “340-1984 99: 98: 82 5 KSVMeP hast ERIN i 


TEKSUMSHASTER CNP SRCINMLCLEAR.B3204"" (115 

Set function code | 

¢ iF ,NALSGL_PRS_FLGS CNML$V_PRS_ALLJ 
§ use «= NFBSC_FC_DELETE 

FUNC = NFBSC_FC_CLEAR; 

60 2 STRTFLG = FALSE; 


The NICE protocol specifies that, for aylttote entity changes, one erce 
response message must be returned to 4 for each entity changed. Each 

message must contain the ID of the oa a changed. Therefore, the following 
oop issues one Q10 to the ne to ufferfull of entity fds, and then 
issues one Q10 for oot? entity in fe buffer to perform the change. This 
process continues until the ACP return end-of-file to indicate that there 
are no more entities of the specified type. 


WHILE NALSGET_ENTITY.1DS (ENTITY, .ENTITY_LEN, .ENTITY_ADR, .STRTFLG, LISDSC) DO 


STRTFLG = TRUE; 


71 
7 
7 
f 
B7: BUFEND = .LISDSC CDSCSA poumyens + .LISDSC COSCSW_LENGTHI; 
78 PTR = .LISDSC CDSCSA_POINTER) 


WHILE .PTR LSSA .BUFEND DO 
BEGIN 


Be Oe Se Ge Se Se Se Fe Se Se Se Se Ge Se Se Se Se Ge Ge Se Se Ge FH Se Se Se Se Ge Ss Se Se Be Ge Se Se Se SH Se Oe Se Se Fe Se Se FH Se Se Se Se Se Se Se Se Oe Ge Se ae 


RAC 4 
BB1 64 
+13 4 ENTIDPTR = NMLS$T_ENTBUFFER 
93 +44 4 NMLSQ_ENTBFDSC CBSCSw_ LENGTH] = NMLSK _ENTBUFLEN; 
95 BBS 4 Entity IDs for the ACP are different from those used by NICE. The 
38 B86 4 i most common cause of this is that the ACP uses a word for the entity 
9 B87 4 i aay: length, and NICE uses a byte. The followin Ree sets up the 
38 BBB 4 i two 1D forms: the NICE entity ID for the response NCP 
B89 4 i the ACP entity ID to be used in the pS buffer of the 
B90 4 i clear Q10. 
90 B91 4 ‘ 
§ +54 2 SELECTONEU .ENTITY OF 
B94 & NML$C_NODE): 
5 B95 BEGIN 
90 +5; -PTR + 4; ! Skip Lgognade flag. 
303 $98 ENTITYADD = pia: oint to node address 
10 900 ENTIDPTR = CHSMOVE (2, .PTR, .ENTIDPTR); 
ah 0901 PTR + 
318 5908 cMTITVLEN f°. \ PTR)<0,8>; ! Get name Length 
YvU ao 
318 1905 EHSMCHAR. ; ( ENTITYLEN, ENTIDPTR) 
916 0906 ENTIOPTR'= CHSMOVE (-ENTITYLEN, -PTR, .ENTIDPTR); 
91 090 PTR = .PTR + .ENTIT 


————_—__—___—_-—-—_—_---, 


SCLEAR WAL CLEAR parameter module p-3¢ -1 VAX-11 Bliss-32 V 0 
VOLO be WAL SCLEARK Clear volatile parameters 1b-hep-1944 99: 95: 8? DISKSVMSMASTER: eho SRC TNMLCLEAR. 832; Pade 475 
: } é ENTITYLEN = 2; ! Get Length of node address 
3 4 END; 

; j CNMLSC LOOPNODE] : 

: 926 nae -A (Q, ENTIDPTR); ! Zero node address 

: : 5 i WCHAR_A ( * ENTIOP 

; 5 4 : 

; 4 i The enti ty 1D for r the t following nodules is the strin 

3 4 ! identifyin ne module (e.g 2 Bird boy ) followed by the 
3 1 4 : pres = + parameter type, and string for the qualifier 
: § ? } ing set. 

; 3 4 twa, $C X25_ACCESS, 

; 935 4 PROT- NET, 

3; 9 4 NML$C"PROT-DTE. 

; 9 4 wt oe RO . 

; 9 : 4 NMLS$C_X2 Beny Pest. 

: 939 : 4 NMLS$C_TRATEPN 

; 940 : 4 NMLSC~X29_SERV_ *DEST): 

3; 941 : BEGIN" 

; ok ; SELECTONEU -ENTITY OF 

; 944 5 NALSC_X25 ACCESS}: 

; 945 : SMOVE_ASCIC ('X25-ACCESS’, ENTIDPTR); 

; 246 5 CNMLSC PROT NET, MAL C_PROT_DTE, NMLSC PROT _GRPJ: 
: $4 : scH05. ASCIC’ ('x25-PROTOCOL'. ENTIDPTR); 

; 948 . ; CNMLS$C_X25_ SERV -DEST): 

; 949 ASCIC™('x2 -SERVER', ENTIDPTR); 

; 950 940 CNMLSC TARCE PNT): 

3 3a) 1 re M Pitt $e: ENTIDPTR); 

; 958 5 $ SMOVE ASCIC~( X29-SERVER", ENTIDPTRD; 

: 955 945 ENTIDPTR = CHSMOVE (2 

; 996 : NBLSAB ENTITYDATA C.ENTITY, E1T$W_DETAILI, 
; 95 : E NENTIDPTR 

3 3 3 8 CHSWCHAR_A (NMASM_PTY atts “ENTIDPTR); 

; 95 ; 4 END; 

: 960 : ? & TES; 

36) pa? , 

: 368 8 2 Finish setting up the entity IDs for all but nodes and server modules. 
3 965 $ 4 iF .ENTITY NEQ NMLSC_NODE THEN 

; 36 $4 ENTITYLEN = .(. ee, 16>; 

3 3o8 : 8 PTR=. a 

4 39 95 ENTITYADD = 

; 970 96 CHSWCHAR_A ( WF me EN, ENTIDPTR); 

; 971 961 ENTIDPTR™= CH VE (.ENTITYLEN, 

3 376 ; x; eENTITYADD, 

; 97 96 -ENTIDPTR); 

: 974 9¢ PTR = .PTR + .ENTITYLEN; 


NALSEL AMKROUN Clear oo wolstile parameters het 300-1382 93: 95: 4 Disk $VMen nen ASfene cmc’ SRCSNMLCLEAR. 832; PH 49) 


END; 
NMLS$Q_ENTBFDSC COSCSW_LENGTH] = .ENTIDPTR = NMLST_ENTBUFFER; 


i Build the buffers for the Q10 and then issue the Q10 to the ACP 
to clear parameters from the volatile database. 


NALSBLDSETOBF | (FUNC 


SREMKE YA , NTITYLEN, .ENTITYADD, 
NFB CWILOCARD a 
$4 “NFBBF DSC, nFeose, 
NAL § Q"P2BFDSC,  P2DSC 
L$60_d10BFD§c, aBr DSc); 
STATUS = wn SHETOIO (NFBDSC, P2DSC, 6, aBFDSC); 


i »STATU 
THEN 


NAL SAB -MSGBLOCK CMSBSL_FLAGS) = 0; 
+ ea “MSGBLOCK CMSB$B8-CODE) = “NRASC -5TS_SUC; 


1 
Add the entity id to the response message information. 


NMLSAB_MSGBLOCK [MSBSV_ENTD_FLD] = 
NMLSAB-MSGBLOCK CMSBSALENTITY) = wnuga _ENTBFDSC; 


ARN BEBE EEE EEE PNNMNE PEPE PPP PPP PPE EE 


ESET SS SEE SEE EEE 


1 
: Build and send the response message. 
1 HAL SBLD REPLY (NMLSAB_MSGBLOCK, MSGSIZE); 
NMLSSEND (NMLSAB_SNDBOFFER, .MSGSIZE); 
1 END; 
1 END; 
1 998 
1 END; ! End of NMLSCLEARKNOWN 
-PSECT SPLITS,NOWRT,NOEXE,2 
3 53 45 43 43 41 2D 58 OA 00020 P.AAE: .ASCII <10>\X25-ACCESS\ 3 
4C GF & GF 2 GF 28 9 D C 002B P.AAF: .ASCII <12>\X25-PROTOCOL\ g 
52 45 $ 52 4 D A 00 P.AAG: .ASCII <10>\X25-SERVER\ : 
$2 4 41 ¢ 4 D a 43 P.AAH: .ASCII <9>\X25-TRACE\ : 
52 4 56 52 4 3 2D A 4D P.AAI: .ASCII <1O>\KZO-SERVER\ ; 


-PSECT S$CODES,NOWRT,2 


OFFC 00000 ENTRY NBL SCL EARKNOWN, Save R2,R3,R4,R5,R6,R7.R8,~ ; 0795 

5 C suBL2 #56, S : 
06 AC D MOVL. ENTITY, R7 > 0848 

” Hf G ee oh ane NALSAB. Ent ryDATAsS R6), DB 
Maaeddntaiets F 4 PUSHAB NMLSAB-ENTITYDATA+6 Rey: > 0849 


—— meme ne 


H 11 
NALSCLEAR NAL CLEAR parameter module 16-Sep-1984 00:02:00 VAX-11 Bliss-32 V4.0-74 Page 
irae ti NMALSCLEARK Clear volatile parameters 19-808 - 1382 99:96:90 SEK SUMGMASTERSCNML Sac SNMLCLEAR.B32047 as 
6 A D 1 MOVL a(SP)+, SRCHKEY1 ; 
05 000000866 05 f p? BBC #1, NMLSGL_PRS_FLGS, 1$ + 0854 
6E 1 D6 9 MOVL #33, FUNC + 0856 
3 C ARS : 
6E 4 00 1$ MOVL #36, FUNC : 0858 
8 p4 3 CLRL _—s STRFFLG : 860 
30 AE OF $ PUSHAB LISDSC : 0871 
5B OD PUSHL STRTFLG : 
7E 08 AC D mova ENTITY_LEN, (SP) : 
57 DD C PUSHL 7 : 
ALLS #5, NMLSGET_ENTITY_IDS : 
000000006 00 3 F ; CALLS a Ns $GET_ENTIT 
Be 4 RET : 
58 01 D0 00049 4$ MOVL #1, STRTFLG + 0874 
0 0 Ar C O46 MOVZWL LISDSC RO : 0876 
0c AE 4 BES : 5 MOV @LISDSC+4CROJ, BUFEND F 
s 4 AE 00 00056 MOVL  LISDSC+4, PTR : 0877 
Oc AE 58 01 003A 5$ CMPL PTR, BUFEND : 0879 
D3 1€ 5 BGEGU 3$ : 
53 00000000' 00 9€ 000 MOVAB NMLST_ENTBUFFER, ENTIDPTR + 0882 
00000000" 09 40 oF 98 00067 MOVZ7BW #64, RML$Q_ENTBFDSC + 0883 
0 7 01 O06 CMPL «sR? #3 + 0894 
1 le 0 2 BNEQ 6$ : 
58 4 CO 00074 ADDL2 #4, PTR : 0897 
SA 8 D 77 MOVL PTR, ENTITYADD : 0898 
83 88 8B 7A MOVW (PTR)+, (ENTIDPTR)+ : 0900 
8 0 ; 7D ADDL2 #2 : 0901 
59 88 9A 00 MOVZBL (PTR)+, ENTITYLEN : 0903 
D INCL PTR > 0904 
83 9 9 MOVB_  ENTITYLEN, (ENTIDPTR)+ + 0905 
63 68 9 2 VC3_—ENTITYLEN, (PTR), (ENTIDPTR) > 0906 
58 59 6¢ C ADDL2 ENTITYLEN, PTR : 0907 
59 0 p MOVL #2, ENTITYLEN : 0908 
00 1 BRW 168 : 089 
05 57 01 6$: CMPL  =sR7, #5 : 091 
2 12 BNEQ 7$ 3 
94 CLRB 3s CENTIDPTR)+ + 0914 
8 94 CLRB CENTIOPTR) : 0915 
11 BRB 15$ : 
oD 5S? 1 7$: CMPL sR? #13 ? 0924 
03 1F BLSSY 8$ : 
10 D1 CMPL R7, #16 : 
. ¥ BLEGU 9$ ; 
12 7 : aS CMPL =-R7, #18 : 
A BEQL 4 J 3 
14 7 p4 CMPL =_-R7,-#20 ; 
5 1 BEQL «6s«O9S ; 
16 oj CMPL R7, #22 F 
: : BNEG 168 ; 
0D i : 9$ CPL Rs #13 > 0934 
63 00000000' 00 E 2 MOS Ht. P.AAE, (ENTIDPTR) 3 0935 
7 pI 10$: CMPL  R7, #14 > 0936 
F IF BLssu 118 : 
7 01 CMPL  R7, #16 : 
A 11$ ; 


11 
NAL CLEAR parameter module 1b-5e -1984 00:02:00 VAX-11 Bliss-32 V4.0-74 Page 33 
NAL SCLEARK Clear volatile parameters 1 ~3e0n 138% 99:95:90 DIEKSVMGHASTERCCWHL SRCINMLCLEAR.B32047 ap 
63 00000000" 00 D 28 b2 moves #3, P.AAF, (ENTIDPTR) : 0937 
12 ? p oe 118: CPL Rr #18 : 0938 
63 00000000" 00 B : 3 mOVcs Ait. P.AAG, (ENTIDPTR) ; 0939 
14 ; b| EB 128: CPL Ree #20 ; 0940 
63 00000000" 00 A 24 i moves #10, P.AAH, (ENTIDPTR) ; 0941 
16 t D1 FA 13$: CHPL R? #22 ; 0942 
63 00000000' 00 8 2 Hi MOVC3) #11, P.AAI, (ENTIDPTR) + 0943 
0000000060046 9F 00107 148 PUSHAB NMLSAB_ENTITYDATA+1(R6] ; 0947 
; 9E 80 91 MOVW @(SP)+> (ENTIDPTR)+ : 
eA ase, IP datagctntior™™ ‘bee 
0 $7 DY GON? tek: cee ; 0955 
59 3¢ O011C MOVZWL (PTR)+, ENTITYLEN + 0957 
SA 3 O11F MOVL PTR, ENTITYA ; 0959 
83 01 2 MOVE. ENTITYLEN, (ENTIDPTR)+ + 0960 
63 6A 38 28 001 MOVC3 ENTITYLEN, (ENTITYADD), (ENTIDPTR) + 0963 
& 9 CO 00129 ADDL ENTITYLEN PTR + 0964 
50 00000000° 90 H 01 ¢ 17$: NOVAB NMLS$T_ENTBUFFER, RO : 0967 
00000000" 00 5 0 a3 001 SUBW3 RO, ERTIDPTR, NML$Q_ENTBFDSC F 
18 AE 9F 00138 PUSHAB OBFDSC : 0972 
000000006 0 3 0136 PUSHAB NML$GO_QIOBFDSC ; 
00000000' 0 i O47 PUSHAB NAL Sa P2BFDSC ; 
00000000' 06 F 9130 PUSHAB NML $0_NFBBFDSC : 
we Ae ce pe fee £7 
7E 9 7D p88 MOVQ  ENTITYLEN, -(SP) : 097 
0 AE DD 9160 PUSHL  SRCHKEY1 : 
RGRee | fet R te 
000000006 00 OE FB 0169 CALLS #14, NMLSBLDSETOBF : 
18 AE 9F 001 PUSHAB QBFDSC : 0978 
7E 04 0017 CLRL = =( SP) F 
gf OME SF boty PUSHAS NFDDSC 
000000096 00 f FB 001 CALLS #4, NMLSNETQIO ; 
10 AE 0 09 1 V RO STATUS F 
0D 10 AE E9 001 BLBC STATUS, 18$ : 0979 
000000006 4 001 CLRL NMLSAB’ MSGBLOC : 0986 
000000006 0 a 1 MOVE #1. NMCSAB_MSGBLOCK+4 ; 09 
if 990006 09 197 18$: BISB2 #16, NMLSAB_MSGBLOCK : 09 
000000006 00000000' 0 196 MOVAB NML$Q_ENTBFDSC, NMLSAB_MSGBLOCK+20 : 0989 
000000006 i 3F OTA PUSHAB NALSABRSGBLOCK Rome 
000000006 00 FB 185 CALLS #2, NMCSBLD_REPLY : 
16 =A pp 1B PUSHL MS > 0994 
000000006 0 F 186 PUSHAB NMLSAB_SNDBUFFER 3 
000000006 00 FB OO1C CALLS #2, NMCSSEND : 


_ | 


1 
voLObe WALSELEARKROUN "Cleon cctetile parameters 1b-Se0-1984 99:05:88 NAS SUMGMASTERSCWME SRCINML.CLEAR.B3204" (133 


me ee eS : 


; Routine Size: 461 bytes, Routine Base: SCODE$S + 0500 


: 1010 1000 1 


ee 


K 1 
SCLEAR NML_ CLEAR parameter module 16-Sep-1 0 VAX-11 s$-32 V4.0- 
06.000 NMLSCLEARK Clear volatile parameters 16-Sep-1964 99: 95 8? D1 SK SVM hat ER: CNML. SRCINAL CLEAR. 832; Pyee as 
! 


O0e } END ! End of module 
14 1 $4 0 ELUDOM 


Seeces a 
—_ 2 

ooo 
a 
Wire 
— 


PSECT SUMMARY 
; Name Bytes Attributes 

: SOWNS 1556 NOVEC, WRT, RD ,NOEXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
: $PLITS BB NOVEC.NOWRT, RO * NOEX -NOSHR LCL; REL. CON.NOPIC.ALIGN(?) 
> SCODES 1741 NOVEC.NOWRT, RD; EXE.NOSHR. LCL. REL. CON;NOPIC.ALIGN(2) 


Library Statistics 


Ferg soe Synhels ooocoooe Pages Processing 
File Total Loaded Percent Mapped Time 


nr an ae ar ee 


MLO 


; COMMAND QUALIFIERS 
; BLISS/CHECK=(FIELD, INITIAL OPTIMIZE) /LIS=LIS$:NMLCLEAR/OBJ=OBJ$:NMLCLEAR MSRC$:NMLCLEAR/UPDATE=(ENH$:NMLCLEAR) 


3; Size: 1741 egge + 1644 data bytes 
3; Run Time: :31. 

3; Elapsed Time . 

3 Lines/CPU Min: 196 

3 Lexemes/CPU-Min: 11614 

3 Y Used: 203 pages 

3; Compilation Complete 
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